home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / PROGRAM / ICNDRW_1.ARJ / GRAFINIT.PAS < prev    next >
Pascal/Delphi Source File  |  1991-08-16  |  304b  |  13 lines
  1. var
  2.   gd, gm : integer;
  3.  
  4. procedure grafinit;
  5. begin
  6.   RegisterBGIdriver(@CGADriverProc);
  7.   RegisterBGIdriver(@EGAVGADriverProc);
  8.   RegisterBGIdriver(@HercDriverProc);
  9.   RegisterBGIdriver(@ATTDriverProc);
  10.   RegisterBGIdriver(@PC3270DriverProc);
  11.   detectgraph(gd,gm);
  12.   initgraph(gd,gm,'');
  13. end;